home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 20
/
Cream of the Crop 20 (Terry Blount) (1996).iso
/
program
/
prtrep51.zip
/
REPSRC.ZIP
/
REPDEM05.DFM
/
REPDEM05.txt
Wrap
Text File
|
1996-06-24
|
5KB
|
234 lines
object dem05form: Tdem05form
Left = 166
Top = 203
Width = 549
Height = 489
ActiveControl = Panel1
Caption = 'dem05form'
Font.Color = clBlack
Font.Height = -14
Font.Name = 'MS Sans Serif'
Font.Style = []
PixelsPerInch = 120
Position = poScreenCenter
OnCreate = FormCreate
TextHeight = 16
object Panel1: TPanel
Left = 0
Top = 0
Width = 541
Height = 89
Align = alTop
TabOrder = 0
object Label1: TLabel
Left = 84
Top = 16
Width = 357
Height = 24
Caption = 'TPrintGridReport Report Styles Demo'
Color = clBtnFace
Font.Color = clMaroon
Font.Height = -20
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object Style1: TBitBtn
Left = 8
Top = 48
Width = 85
Height = 34
Caption = 'Style &1'
TabOrder = 0
OnClick = Style1Click
end
object Exit: TBitBtn
Left = 448
Top = 48
Width = 85
Height = 34
Caption = '&Exit'
ModalResult = 1
TabOrder = 1
end
object Style2: TBitBtn
Left = 96
Top = 48
Width = 85
Height = 34
Caption = 'Style &2'
TabOrder = 2
OnClick = Style2Click
end
object Style3: TBitBtn
Left = 184
Top = 48
Width = 85
Height = 34
Caption = 'Style &3'
TabOrder = 3
OnClick = Style3Click
end
object Style4: TBitBtn
Left = 272
Top = 48
Width = 85
Height = 34
Caption = 'Style &4'
TabOrder = 4
OnClick = Style4Click
end
object Style5: TBitBtn
Left = 360
Top = 48
Width = 85
Height = 34
Caption = 'Style &5'
TabOrder = 5
OnClick = Style5Click
end
end
object Panel2: TPanel
Left = 0
Top = 89
Width = 541
Height = 373
Align = alClient
BevelInner = bvLowered
BorderWidth = 4
Caption = 'Panel2'
TabOrder = 1
object DBGrid1: TDBGrid
Left = 6
Top = 6
Width = 529
Height = 361
Align = alClient
BorderStyle = bsNone
DataSource = DataSource1
Font.Color = clBlack
Font.Height = -13
Font.Name = 'Arial'
Font.Style = [fsItalic]
ParentFont = False
TabOrder = 0
TitleFont.Color = clBlack
TitleFont.Height = -15
TitleFont.Name = 'Arial'
TitleFont.Style = [fsBold]
end
end
object Query1: TQuery
Active = True
DatabaseName = 'DBDEMOS'
SQL.Strings = (
'Select'
' parts."PartNo",'
' parts."VendorNo",'
' parts."Description",'
' parts."OnHand",'
' parts."OnOrder",'
' parts."Cost",'
' parts."ListPrice"'
'From "parts.db"'
'As parts'
'order by'
'VendorNo')
Left = 196
Top = 65533
object Query1PartNo: TFloatField
DisplayWidth = 7
FieldName = 'PartNo'
end
object Query1VendorNo: TFloatField
FieldName = 'VendorNo'
Visible = False
end
object Query1Description: TStringField
DisplayWidth = 23
FieldName = 'Description'
Size = 30
end
object Query1OnHand: TFloatField
DisplayWidth = 7
FieldName = 'OnHand'
end
object Query1OnOrder: TFloatField
DisplayWidth = 7
FieldName = 'OnOrder'
end
object Query1ListPrice: TCurrencyField
DisplayWidth = 9
FieldName = 'ListPrice'
DisplayFormat = '$ #,##0.00'
Currency = True
end
object Query1Cost: TCurrencyField
DisplayWidth = 6
FieldName = 'Cost'
DisplayFormat = '$ #,##0.00'
Currency = True
end
end
object DataSource1: TDataSource
DataSet = Query1
Left = 171
Top = 65529
end
object PrintGridReport1: TPrintGridReport
Brush.Style = bsCross
ViewButtonVisible = False
OutputTo = poViewer
Orientation = Default
ViewBkColor = 11234567
Units = poInches
ViewHeading = 'ReportIt Viewer'
FooterFont.Color = clWindowText
FooterFont.Height = 12
FooterFont.Name = 'Arial'
FooterFont.Style = []
HeaderFont.Color = clWindowText
HeaderFont.Height = 16
HeaderFont.Name = 'Arial'
HeaderFont.Style = []
ZoomPercentage = 100.000000000000000000
HeaderTop = 0.500000000000000000
HeaderStringLeft = 'Demo'
HeaderStringCenter = 'Page Header'
HeaderStringRight = 'Reportit'
HeaderEnabled = True
HeaderOutlined = True
HeaderFilled = False
FooterTop = 24.630000000000000000
FooterString = 'Page Footer'
FooterEnabled = True
FooterOutlined = True
FooterFilled = False
DisableControls = True
BorderLeft = 0.250000000000000000
BorderRight = 0.250000000000000000
DateTimeStampEnabled = True
PageNumberEnabled = True
GridHeadingRow = 1.500000000000000000
GridHeadingCol = 0.250000000000000000
GridHeadingEnabled = True
GridHeadingOutlined = True
GridHeadingFilled = False
GridLines = True
LineSpacing = 1.500000000000000000
Grid = DBGrid1
GridMinWidth = True
GridCentered = True
GridPrintTotal = True
PrintSubTotals = True
FrameStyleLeft = frNone
FrameStyleTop = frDoubleThickThin
FrameStyleRight = frNone
FrameStyleBottom = frSingleThin
ReportStyle = rsOwn
Left = 132
Top = 65528
end
end